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3 1 001 

; § § MODULE SMGSBOOLEAN_TABLES( Br yyLe *TPARSE tables for Boolean capabilities’ 

3 Z {DENT = '1-002' ! File: SMGBOOTAB.B32 Edit: PLL1002 

P = 

; 5 005 : BEGIN 

: ? 007 } i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereeeeeerereeeeneneneeeeeeeeeneeeeeeeeeees 
: '® a 
3 9 B98 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 10 10 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
PF} 1} i : ? ALL RIGHTS RESERVED. * 
° : oa 
3 ig $018 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 16 B08 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 17 001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 13 aid : i. TRANSFERRED. * 
° ; ® 
; $f 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
4 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $$ 89 ¢ : pe CORPORATION. 
3 '® 

3 $e 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
H 26 00 g 1 !e * 
Py 7 00 1 !« tt 
g oo55 : ‘eg in iad cain alt tat tinh oinlata taint nee 
: 30 0030 1 

3 He 0031 1 !++¢ 

3 2 Bos 1! FACILITY: Screen Management 

3 3 00335 1! 

: 4 Boe 1 ! ABSTRACT: 

3 5 0035 1! 

3 6 Bogs 1! This module contains the LIBSTPARSE state tables used to parse 

3 i ith ' Boolean capabilities from an ascii TERMTABLE.TXT file. 

; 4 st ' : ENVIRONMENT: User mode - AST reentrant 

: 41 9061 : AUTHOR: P. Levesque CREATION DATE: 30-Jan-1984 

; re $028 1 | MODIFIED BY: 

3 44 044 1! 

; «645 045 1 ! 1-001 = Original. PLL 30-Jan-1984 : 

3 28 494 ! : 1-002 - Allow comments on Lines not terminated by a comma. PLL 15-Mar-1984 
> 48 0048 1— 
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Declarations ib-te =300- 138% 99: 49; $3 Short 1° CSMGBOOTAB. % 2:1 (2 


L 
RSBTTL ‘Declarations’ 
! SWITCHES: 
03 1, 
09 i LINKAGES: 
0 $ i 
a03 NONE 
035 TABLE OF CONTENTS: 
006) ; 
06 


FORWARD ROUTINE 
NOT 


006 BOOLEAN, ! signal an unknown cap name 
oe) STORE _BOOLEAN; ! store a boolean cap value 


INCLUDE FILES: 


REQUIRE ‘RTLIN:SMGPROLOG'; 
LIBRARY ‘RTLML:SMGTPALIB'; 
LIBRARY ‘RTLTPAMAC'; 


Defines psects, macros, etc. 


Perinat tiene ong macros used by 
TERMTABLE routines 
TPARSE Library of macros 


EQUATED SYMBOLS: 
NONE 
FIELDS: 

NONE 

: PSECTS: 


i EXTERNAL REFERENCES: 


' 
i 
; 
EXTERNAL cnokes 


NE 
SMGSSBLANKS ' turn off flag to process blanks 


' 

SMGS$S$FLUSH RUMERIC, ! flush numeric value to data area 
SMGSSMISSIRG ‘ ' signal error 
SMGSSNEXT_RETORD, ' get next record from TERMTABLE.TXT 
SMGSS$STORE_CAP_MASK, ! remember capability number 
SMGSSSYNTAR_ERROR; ! signal syntax error 

EXTERNAL 
SMG$_ERRLIN error at Line n 


error in Line n at ‘x' 
tyhegal vetug “iy Boolean 
miss ng terminal name 

not a boolean capability 
syntax error 


SMGS$_ERRAT CIN, 
Ss A 


SMG$_NOTBOOCAP, 
SMG$"SYNERR; 
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Declarations 


shige EAN_TAB TPARSE tables for Boolean capabilities 


; 107 1 ; 1 

oe 1 1 EXTERNAL 

a 185 1 SMASK_ADR, 

3 11 1 § 1 SMGSSCURRENT _LINE; 
3 YN5 1 1 

: 16 1 1 

s + 1 1! 

> 114 1 1 ! OWN STORAGE: 

: ie 192 1 | NONE 

3 113 138 1 


iPbeont9pe 09:34:88 yatett aL 


' used by TPARSE get ton routines 
' current input Line - maintained 
! for error messages 
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EAN_TABLES = TPARSE tables for Boolean 14-Sep-1 
ZSBTTL ‘SMGSSBOOLEAN_TABLES = TPARSE tables for Boolean capabilities’ 


'e¢ 


FUNCTIONAL DESCRIPTION: 


i The fol towing are the state tables used to parse Boolean 
capabilities in a terminal definition. 
i 


SINIT_STATE (SMGSSA_BOOLEAN_STATES, SMGSSA_BOOLEAN_KEYWDS); 
! set up state tables, key words 


1+ 
! Begin scanning loop. Look for the start of a capability. 
; Skip over blanks and comments. 


), BEGIN_SCAN, SMGSSNEXT_RECORD), 
AN, SMGSSNEX RD), 

. BEGIN SCAN, SMGSSBLANKS_OFF), 
TPAS_ERIT) 


i This state indicates the end of a Line. A comment also signals the 
end of a Line. 


SSTATE (END _OF_LINE, 
(TPAS_EOS, TPAS_EXIT), 
cris EXITS, 

(TPAS_LAMBDA, TPAS_FAIL) 


+ 
! Find the capebtt tty name and determine if it's one that we expect. 
The string up to the ‘=" sign should be the capability name. 


SSTATE (CAPABILITY 
BOOLEAN NAMES EQUALS_BOOLEAN, SMGSSBLANKS_OFF), 


TPAS_FAIL) 


LEAN’, BEGIN SCAN) 
EQUIRE', TPAS FAIL, SMGSSMISSING END), 
, TPAS_FATL, SMGSSMI » 
PAS_SYMBOL,~, NOT_BOOLEAN 


'¢ 
: Check here for a boolean name. 


SSTATE (BOOLEAN NAME , 
("ADVANCED _VIDEO', TPAS_EXIT, , SMGSK_ADVANCED_VIDEO, SMGSSMASK_ADR), 


-—uv 
pe 


F 10 
PHLOEM. TRMEEGSOLSE SL eROUPTASPERSIS NS sooten HEREBIEL QU:DS:9E Mat PSESSNNS SG? 


'¢ 
i Found a boolean name, now look for a boolean value. Skip over the 
intervening equals sign. 


MOMMY 


DWDOOOO OOO OW WWW 0909 WO SIN NINN NNN SOO AAO 


SSTA EQUALS BOOLEAN 


E ( 
(END_OF LINE) EQUALS pBOOLEAN SMGSSNEXT RECORD), 
ts! ap snGSss 


“BOOLEAN. VALUE 
“sis SYNTAX 
“any ea + SG SSYNTAX TERROR) 


oe _CAP_MASK) 


vuvvUU 


SOOOOOOOCOOSSCOOSCOOOOOCOCOOSSOSSOOSOOOOOOOOCOOOOOOO 


T 
E 

+4 
(TPA$_S 
(TPAS 
); 

'¢ 


3 Sor the value. This is a boolean capability, so it better have a boolean 
value. 


CCEND OF F LINE), “BOOLEAN, CAP_VALUE, SMGSSNEXT_RECORD), 
(TPAS_SYMBOL, . + SReeSSyNTAK’ “ERROR), 


: 17 P 1 ("ANSI “itc| ylPAs BIE SMGSK_ANS SSMASK ADR), 

5 1 5 P 1 ("AUTO"MA Gin’ batt: eyonesk ADO fate SROSSMASK ADR), 

i 108 P 1 CBACKSPACE tras Ex SHGsk Pack Snes 

3 P 1 (BLOCK MODE S_EXI RB Oe spose SRASE ADA) 

: 1 P0255 1 (* CURSOR EPoRT. Ant! , te é exit rpms cuRs OR REPORT “ANSI, SMGSSMASK_ADR), 
; : . § : Hare gnc KD Ol tn site SAASK AD 

; P CELGNT*RIT TPAS” att tat sis Tol, latins, sean) 

% P 0260 1 (" IGNORE _NE rape Thee. enes LLBUPE NEULINE, ’ sncsenas SK_A 

: 4 P 0261 1 (*INSERT-MODE_NULLS', TPAS_EXIf, , SMG "7 nSen ghOve ghutts. SRCSSMASK _ADR), 
ry P ¢ 1 (*LOWERCASE", “TPA EXIT, 4° ; sn sk_{ OVERCASE, SHOSSHAS ), 

3% p 1 — C*NOLERASE" |» “TPAS_EXI K-RO_ERASE, SMG 

: 1 P 1 C*NOTSCROLL', TPAS Exif, ”, seacse nO SCROLL SRGSSAASK mR 

Ss P 1 ('OVERSTRIKE', TPAS exif » SMGSR OUERSTRIKE® MOSSMASK ADR) 

Ss P 1 (*PRINTER_PORT', TPAS_EXIT, , SMGSK_PRIN Bort’ MCSSRASK ADR), 
9 P 1 (*REGIS', TPAS_EXIT, > SHOSk “REGIS, SMGS ASK ADA) ® 

: 4 P 1 ("SCOPE’, TPAS-EXIT, , SMGSK-SCOPE, SMGSSMASK-ADR), 

Pa P 1  ('SIXEL GRAPHICS’, fPAS EXIT? , SHGSK SK SIXEL_GRAPHICS, SMGSSMASK_ADR) 
$1 Pp 1 ("SOFT CHARACTERS’, TPAS Exif, MGSR_SOFT <Chanac eh SMGSS$MASK_ADR), 
a P 1 (*PHYSTCAL_TABS' fPAS_ERIT, gnese paYS ICKL setter ART. 
es P 1 ("PHYSICAL -FF', TPA$ ERIT, SHOSK Pas sit 

: 4 P 1 ("UNDERLINE', fTPAS_ERIT, , SMGSK_U mie 

: 4 P 1 (PRIVATE B06_1° ‘ stp as exit . E URDERL LN i B00_1 Ee eAKsK ADR), 
: P 1 (;PRIVATE-BOO-¢* TPAS_EXIT, , SHGSK-PRIVATE “BOOT? > SMGSSMASK-ADR). 
: P 1 ("PRIVATE-BO0_3', TPAS-EXIT, . SMGSK~PRIVATE-B00_3, SMGSSMASK-ADR). 
: P 1 ("PRIVATEB800-4", TPAS-EXIT, . SMGSK-PRIVATE-B00-4, SMGSSMASK-ADR), 
: P 1 ("PRIVATE-B00-5', TPAS-EXIT, . SMGSK-PRIVATE-BOO-5. SMGSSMASK-ADR). 
: P 1 (“PRIVATE B00-6), TPAS-EXIT, , SRGSK-PRIVATE BOO~6, SMGSSMASK-ADR) . 
; P 1 ("PRIVATE-B00-7°, TPAS-EXIT. . SMGSK~PRIVATE-BOO-7, SMGSSMASK-ADR). 
: P 1 (* PRIVATE 800-8" TPAS_EXIT, . SMGSK-PRIVATE =B00 0-8. SMGSSMASK_ADR) . 
: P 1 (*PRIVATEBO0-9') TPAS-EXIT, , SMGSK-PRIVATE-B SMGSSMASK ADR) 
; P 1 (*PRIVATE-B00-10°, TPAS_EXIT, , SMGSR_PRIVATE_ 800 10, SMGSSMASK_ADR), 
; P (TPAS_LAMEDA » TPAS_FAILT 
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(TPAS_ANY, , SNGSSSYNTAX ERROR) 


'¢ 
The only acceptable values for a boolean are 0 and 1. 


| 
ARERR, STORE _BOOLEAN) , 


vuvuv 


ASLAMBDA, +1508 AS FALL) 


"TPA EXIT SHGSSBLANKS OF OFF) 


ofr) 
CCEND” ~OF Mie TPAS EXIT rd Bsa “RECORD), 
S"ANY, , SMGSSSYRTAX_ERROR) 
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ZSBTTL "NOT_BOOLEAN = signal an unknown capability name’ 
ROUTINE NOT"BOOLEAN = 


'o4¢ 


FUNCTIONAL DESCRIPTION: 


= ust found a name het isn't boolean. It could be a misspelling 
ty misplaced under the wrong heading. 


t could be a capabil 
Signal an error. 


i CALLING SEQUENCE: 


status = NOT_BOOLEAN () 


i FORMAL PARAMETERS: 


i IMPLICIT INPUTS: 


AP Points to TPARSE parameter block 


i IMPLICIT OUTPUTS: 


i COMPLETION STATUS: 


SS$_NORMAL 


i SIDE EFFECTS: 


: REF BLOCK C,BYTE); 


SIGNAL_STOP ( SS ERRAT_LIN 
GSSCORRENT LINE. 
ASL_ TOKENEN i 
tts aL OKENP 


END; ! end of routine NOT_BOOLEAN 
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SMGRTL.SRCJSMGBOOTAB.B52;1 


-TITLE SMGSBOOLEAN_TABLES ernie posses for Boolean ca 


IDENT \1-002\ 
.PSECT _LIBSKEY1$,NOWRT, 


00000 ; TPASKEYSTO 
U.29: .BLKB 0 


808 


4F 
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SF 
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43 
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FF 


STosey none ECESeIRRE 99:08:98 


00000 i" SSE VST 
ey I 


SEE reasnerifd 


00004 eTPASKEYST- 


U.36: ASCII 
Som a 


0000c 0385 evettk 
41: “ASCH 
80018 ; TPASKEYSTO 


U.44: BLK 
00013 ; TPASKEYST 


pooia -BYTE 
1B 4"reenevers 


8 
0001B ; TPASKEYST 
0.51: “petit 


$0038 : TPASKEYS10 ' 


U.55:  .BLK 
00023 ; TPASKEYST 
: ASCII 


90037 ; .B 
0028 ; TPASKEYFILL 


U. 63:  .B 
00029 ; TPASKEYSTO 
00029 


0038 :1 


00038 


pane 
0041 ;T 
00041 


0040 1 


00040 


80037 
92: BLK 


00057 ; TPASKEYS 
0.94: ASCII 


$6062 STPASKEYSTO 
6.99:  .BLKB 
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WIReL EAN 


0 
WEGUIREN 


MOWED _FESEON 


0 
\ANSI_CRT\ 


0 
\AUTO_MARGIN\ 


0 
Wpnceernce 


0 
NPL OCK_AODE 
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56 


43 
FF 


Gh 
FF 


45 
FF 
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FF 


46 
FF 


49 


mane ]ECREBIGEE 99:06:92 


00062 ; TPA KEYST 
U.101: ASCII 


oe sTpasxevétO 


00075 0510 Kevit- 


. ASCII 
poere BY 
muerte 
00070 At KEYS 
: oA esti! 
eh 3; TPA Kevt0- 
U.120: vit LKB 
0082 ;TPA KEY $ 
pelle 
goat ; TPASKEYSTO 
0.127: .BLKB 
0008C UEPASKEYET 
0.129: ASCII 
9+ a BYTE 
0094 ; TPASKEYSTO 
0.134: .BLKB 
00094 U EPASKEYST 
0.136: ASCII 
OOA BYTE 
OOAS ; TPASKEYSTO 
U.141: .BLKB 
000A3 ; TPASKEY ST 
U.143: .ASCII 
00B2 
00B4 BYTE 
00B5 ; TPASKEYSTO 
U.148: .BLKB 
000B5 ; TPASKEYST 
U.150: .ASCII 
SO 08E BYTE 
QOBF ,iegecevsre 
U.155: .BLKB 
000BF pTRASKEVS! 
U.157: .ASCII 
00C7 BYTE 
OOC8 ; TPASKEYSTO 
U.162: .BLKB 
000C8 ; TPASKEYST 
U.164: .ASCII 
6000) BYTE 
D2 ; TPASKEYSTO 
U.169: .BLKB 
000D2 ; TPASKEYST 
U.171: ASCII 
8 ODC BYTE 
ODD ; TPASKEYSTO 
U.176: . 
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0 
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SA OHORE EL THEN 
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\INSERT_MODE _NULLS\ 
-1 

0 

aetna 


0 
\WO_ERASE\ 


0 
\NO_SCROLL\ 


0 
N@VERS TRIES 


TS 
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54 52 4F 50 SF 


53 43 49 48 50 41 52 

53 52 45 54 43 41 52 41 
53 42 41 54 SF 4C 

46 46 SF 4C 

45 4E 

31 SF GF GF 42° SF 

32 SF GF GF 42 SF 
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34 SF GF 4F 42 SF 
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;TPA KEYST 
0 6 ASCII 


ny cue 


U 
QOOEA ; TPASKEYS 
: ASCII 


SOOO ; 3 TPA Kevéto. 
2 KB 


0.1 
OO0FO ; TPASKEYS 
U.19 “Stil 


enor ; TPA KEYSTO 


0.197: .BL 
000F6 ; TPASKEYST 
: ASCII 


28188; rpasxevétd 


U. 
00105 Loe evst 
: ASCII 


ponte -BY 

115 ; TPASKEYSTO 
0.21 -BL 

00115 ;TPA KevST 

001 0.21 Ti) 

00138 
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012€ -BYT 
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001 
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\ORIVATE _000_2\ 
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0.26 
00171 ih revit 
6.26 orf 1 \PRIVATE_B00_5\ 


BOLE: suerte ; 


b 
0017F ii TbASKeVSt 
: erie! \PRIVATE_800_6\ 


gore ; Tpaskevé} ie 


U.274: .BLKB 0 
0018D OTPASKEYET 

0.276: “ASCII \PRIVATE_800_7\ 
00 19n ; TPASKEYSTO 


0.281: 0 
00198 - PA KEYST 
= ASCII \PRIVATE_800_8\ 
68 i -BYTE <1 
O1A9 ; TPASKEYSTO 
0.288: .BLKB 0 
OO1A9 ; TPASKEYST 
0.290: “ASCII \PRIVATE_800_9\ 
$018 ; TPASKEYSTO 


U. . 2 LK 0 
00187 ; TPASKEYST 
U.297: ASCII \PRIVATE_800_10\ 


oot -BYTE 
O1C6 ; TPASKEYFILL 
U.304: .BYTE -=1 


-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 SMGS$A_BOOLEAN, STATES: 
00000 BEGIN_SCAN: 
LKB 0 
00000 ; TPASTYPE 
G.2: wo 26120 
00002 ; TPASSUBEXP 


bon ; ‘eee 


0.4: -WO <<U.3-U.4>-2> 
00004 ; TPASACTION 
U.5: LONG <<SMGSSNEXT_RECORD-U.5>-4> 


00008 ; TPASTARGET 
U.6: WORD <<BEGIN_SCAN-U.6>-2> 
QOO0A ; TPASTYPE 
U.7: WORD -28639 
OO000C ; TPASACTION 
U.8: LONG <<SMGSSNEXT_RECORD-U.8>-4> 


00010 ; TPASTARGET 

U.9: -WORD <<BEGIN_SCAN-U.9>-2> 
00012 ; TPASTYPE 

U.10: WORD 26120 


00014 ; TPASSUBEXP 


SMGRTL.SRCJSMGBOOTAB.B52; 1 


SAGSQOOL EAN. TAB Not Boot bapies 9 
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00000000* 00016 ; 
0000* OOOTA ; 
15F6 0001C 
FFFF 


11F7 
FFFF 
1021 
FFFF 
15F6 
FFFE 


998 
0000* 0002E 
00000000* 00030 
0000* 00034 
1100 00036 
FFFE 00038 
1101 O003A 
FFFE 0003C 
1102 O003€ 
FFFE 00040 
1103 00042 
0000* 00044 
9104 00046 
00000000* 00048 
FFFE O004C 
9105 O004E 


US ceactitnn 


Uae anges 
6.14: 

s TPASTYPE 
0.15: .WORD 


ASTARGET 
8: WO 


AX-11 Bliss-32 V4.0-74 
SMGRTL.SRCJSMGBOOTAB.B352;1 


<<U.11°U.12>=2> 
<<SMGSSBLANKS_OF F-U.13>-4> 
<<BEGIN_SCAN-U. 14>=2> 

5622 

-1 


-26120 

<<U.24-U.25>-2> 
<<SMGSSBLANKS_OF F-U.26>-4> 
<<U.27-U.28>-2> 

4352 

-2 

4353 

-2 

4354 

-2 

4355 

<<BEGIN_SCAN-U.48>-2> 
-28412 
<<SMGSS$MISSING_END-U.53>-4> 
-2 

-28411 


paggoem Teas 


SE tables f 
EAN = $3 


r Boolean capabiliti 
signal an unknown capa 


00000000+ 
FFFE 
85F1 

00000000* 


7106 
00000000* 
00000001 

FFFF 

7107 
00000000* 
00000002 

FFFF 

7108 
00000000* 
00000003 

FFFF 

7109 
00000000* 
00000004 

FFFF 

710A 
00000000* 
00000005 

FFFF 

7108 
00000000* 
00000018 

FFFF 


00050 ; TPASACTION 


U.59: LONG 
00054 stPASTARGET 
00056 jiPASTYPE 
e $ 
00058 ZTBASACTION 
0005¢ ié OLEAN_NAME 
0005¢ ZtBASTYPE 
0005 siPAéaooR 
00062 ings MSH one 
00066 ; TPASTARGET 
0.70:  .WORD 
00068 ; TPASTYPE 
0.74:  .WORD 
0006A ZTBASADOR 
0006 ZTPASMASK 
00072 ; TPASTARGET 
U.77: WORD 
00074 ; TPASTYPE 
0.81: WORD 
00076 ; TPASADDR 
U.82: LONG 
0007A ; TPASMASK 
6.83:  .LONG 
0007E ;TBASTARGET 
00080 ; TPASTYPE 
0.88:  .WORD 
00082 ;TPASADDR 
U. 89: LONG 
00086 ; TPASMASK 
0.90: .LONG 
0008A ; TPASTARGET 
O.91; WORD 
0008C ; TPASTYPE 
U.95: WORD 
Q008E ; TPASADDR 
6.96: .LONG 
00092 ; TPASMASK 
U.97: aa 
00096 ;TRASTARGET 
00098 ; TPASTYPE 
0.102: .WORD 
0009A ipa ADDR ng 
venes TPABRASK 
QO0A2 ; TPASTARGET 


nN 10 
bility name 12-868-1382 99:09:48 Shcrte sR ¢ sheavotse 8 2:1 


<<SMGSSMISSING_END-U.59>~4> 
-2 

31247 
<<NOT_BOOLEAN-U.62>-4> 

0 

28934 
<<SMGSSMASK_ADR-U.68>-4> 
1 

-1 

28935 
<<SMGSSMASK_ADR-U.75>-4> 
2 

-1 

28936 
<<SMGSSMASK_ADR-U.82>-4> 
3 

-1 

28937 
<<SMGSSMASK_ADR-U.89>-4> 
4 

-1 

28938 
<<SMGSSMASK_ADR-U.96>-4> 
5 

-1 

28939 
<<SMGSSMASK_ADR-U.103>-4> 


SMGSBOOLEAN_TAB 
al 


TPARSE tables for Boolean capabilities 16-3 “1984 00:14: 
NOT_BOOLEAN = signal an enknoun capability name 1 730071382 90:49; 


710C 
00000000* 
00000006 
FFFF 
7100 
00000000* 
00000007 
FFFF 
710E 
00000000* 
00000008 
FFFF 
710F 
00000000* 
00000009 
FFFF 
7110 
00000000* 
0000000A 
FFFF 
7111 
00000000* 
00000008 
FFFF 
7112 
00000000* 
0000000C 
FFFF 


U.105:_ ., 
OOOAS ; TPASTYPE 


OOOAA ; 
OOOAE ; 
00080 ;7 
00082 ; 
00086 ; 
OO00BA ; 
0o00Bc ; 
OO0BE ; 
0002 ; 
000c6 ;T 
000¢8 ; 
O00CA ;7 
000CE ; 
00002 ; 
00004 ;T 
00006 ;7 
OOODA ;T 
OOODE ; 
000E0 ; 
000E2 ;7 
000E6 ; 
OOOEA ;T 
OO0EC ; 
OOOEE ; 
000F2 ; 


28940 
<<SMGSSMASK_ADR-U.110>-4> 
6 

-1 

28941 
<<SMGSSMASK_ADR=-U.117>=4> 
7 

-1 

28942 
<<SMGSSMASK_ADR-U.124>-4> 
8 

-1 

28943 
<<SMGSSMASK_ADR-U.131>-4> 
9 

-1 

28944 

<<SMGSSMASK_ADR-U. 138>-4> 
10 

-1 

28945 
<<SMGSSMASK_ADR-U.145>-4> 
11 

-1 

28946 
<<SMGSSMASK_ADR-U.152>-4> 
12 

-1 


$3 AX-11 Bliss-32 V4.0- 
8 SMGRTL.SRCJSMGBOOTAB 
-1 
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E tables f 
BOOLEAN = s 


} 


r Boolean capabilitie 
gnal an unknown capab 


7113 
00000000* 
00000000 

FFFF 

7114 
00000000* 
0000000E 

FFFF 

7115 
00000000* 
0000000F 

FFFF 

7116 
00000000* 
00000010 

FFFF 

7117 
00000000* 
00000011 

FFFF 

7118 
00000000* 
00000012 

FFFF 

7119 
00000000* 
00000013 

FFFF 

711A 


fity name if-te 


=$p-1986 19:09:98 


000F8 At: we 


OOOFA ; 
OOOFE ; 
00102 ; 
00104 ; 
00106 ;T 
0010A ;T 
O010E ; 
00110 ; 
00112 ; 
00116 ;7 
O011A ;7 
0011C ;T 
OO11E ;T 
00122 ; 
00126 ; 
00128 ; 
0012A ; 
0012E ; 
00132 ;T 
00134 ;T 
00136 ; 
0013A ; 
O013E ; 
00140 ; 
00142 ; 
00146 ; 
0014A ; 
0014C ; 


WORD 28947 


it ADDR 
ASMASK 
ny -LONG 13 
ASTARGET 
61: WORD -1 
ABT YPE 
65: .WORD 28948 
ASADOR 
oe 
ASMASK 
67: .LONG 14 
ASTARGET 
68: .WO -1 
ASTYPE 
72: WORD 28949 
os 
73: 
ASMASK 
74: LONG 15 
ASTARGET 
75: .WO -1 
ASTYPE 
79: WORD 28950 
ASADDR 
80: 
ASMASK 
81: .LONG 16 
ASTARGET 
82: .WORD -1 
ASTYPE 
86: .WORD 28951 
ASADDR 
87: .LONG 
ASMASK 
88: .LONG 17 
ASTARGET 
89: .WORD -1 
~ aa 

: .WORD 28952 

ASADDR 
ASHASK 

- 4 -LONG 18 
ASTARGET 
96: .WO -1 
ASTYPE 
iF -WORD 28953 
ASADDR 
01: .LONG 
A SK 
02: .LONG 19 
ASTARGET 
03: .WORD -1 
ASTYPE 


AX=11 Bliss-32 V4.0 
SMGRTL.SRC SMGBOOTAB. 3 231 


«LONG <<SMGSSMASK_ADR-U.159>-4> 


LONG <<SMGSSMASK_ADR-U.166>-4> 


.LONG  <<SMG$S$MASK_ADR-U.173>=4> 


LONG <<SMGSSMASK_ADR-U.180>-4> 


<<SMGSSMASK_ADR-U.187>-4> 


-LONG <<SMGSSMASK_ADR-U.194>-4> 


<<SMGSSMASK_ADR=-U.201>-4> 


— — | 


aef 


D 11 
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Us 07: WORD 28954 : : 
anne ae 6.90 POR ONG <<SMGSSMASK_ADR-U.208>-4 
° * -208>=4> : 3 
00000014 00152 ¢ ; TPASMASK : 
at . « 20 : 3 
FFFF 00156 st Hae T ‘ ; 
711B 00158 Ciba TYPE $ 
U.214: WORD 28955 : $ 
cages chi gicageoon <<SMGSSMASK_ADR-U.215>-4 
° a “U. >=-4> 8 : 
00000015 OO1SE ; TPASMASK = $ 
FFFF 00162 j"cagtanest : 
U.2l7: . -1 3 : 
711C 00164 ; TPASTYPE 3 
U.221: .WORD 28956 : : 
00000000* 00166 ; TPASADOR 3 
U.222: .LONG <<SMGSSMASK_ADR-U.222>-4> : : 
00000016 O016A ; TPASMASK 3 
U.223: .LONG 22 : 3 
FFFF QO16E ; TPASTARGET : 
U.224: WORD -1 e Ps 
711D 00170 pTOasTvPE : 
U.22 «WORD 28957 : : 
00000000* 00172 ; TPASADDR 3 
U.229: .LONG <<SMGSSMASK_ADR-U.229>-4> : 3 
00000017 00176 ; TPASMASK : 
U.230: .LON 23 3 : 
FFFF QO17A  TPASTARGET : 
U.231: -1 3 3 
711E 0017C ieee F 
U 235: .WORD 28958 3 3 
00000000* 0017E ;TPASADDR : 
U. 236: .LONG <<SMGSSMASK_ADR-U.236>-4> : 3 
00000003 00182 ; TPASMASK 3 
U.237: .LONG 211 3 3 
FFFF 00186 iSgatanes! : 
U.238: . 1 5 3 
711F 00188 ; TPASTYPE : 
U.242: .WORD 28959 : : 
00000000* 0018A ; TPASADDR 3 
U.243: .LONG <<SMGSSMASK_ADR-U.243>-4> 3 3 
00000004 0018E ; TPASMASK : 
U.244: .LONG 212 3 3 
FFFF 00192 ; TPASTARGET : 
U.245: .WORD -1 3 3 
7120 00194 ; TPASTYPE : 
U.249: .WORD 28960 3 : 
00000000* 00196 p TD gRADDR : 
U.250: .LONG <<SMGSSMASK_ADR-U.250>-4> 3 3 
00000005 0019A ; TPASMASK : 
U. 251: .LONG 213 3 3 
FFFF OO19E ; TPASTARGET ; 
U.252: WORD -1 : : 
7121 OO1AO ; TPASTYPE 
U.256: .WORD 28961 : 


S$ SOOLEAN. TAB eT Bho tapes for Boolean capabilitie 1b-5¢ Sep-1 AX-11 iss- 4. 
iti NOT_ signal an whneun capability name 1 12-8001 382 99: 9; 3 SMGRTL SRE sheatotae 6 B32;1 


sehen to §'58 net <<SMGSSMASK_ADR-U.257>=4 
. . o "Ue >-4> 
00000006 001A6 Us MASK a 
U.258: .LONG 214 
FFFF OOTAA ata TARGET 
7122 OO1AC sibagtveé. onset 
saan cise jb ogke Lone <<SMGSSMASK_ADR='.264>=4 
e $ » * >-4> 
00000007 00182 ; TPASHASK o 
U.265: .LONG 215 
FFFF 00186 ; TPASTARGET 
0.266: .WORD -1 
malo Ho 
00000000* 001BA ; TPASADDR 
U.271: .LONG <<SMGSSMASK_ADR-U.271>-4> 
00000008 001BE ; TPASMASK 
U.272: .LONG 216 
FFFF QO01C2 ; TPASTARGET 
0.273: .WORD -=1 
7124 001C4 ; TRAST YPE 
0.277: .WORD 28964 
00000000" 001¢6 ; TPASADDR 
0.278: .LONG <<SMGS$SMASK_ADR-U.278>-4> 
00000009 O01CA ; TPASMASK 
U.279: .LONG 217 
FFFF OOICE ; TPASTARGET 
U.280: .WORD -1 
7125 00100 ; TPASTYPE 
0.284: .WORD 28965 
00000000* 00102 ; TPASADDR 
U.285: .LONG <<SMGS$SMASK_ADR-U.285>-4> 
Q000000DA 00106 ; TPASMASK 
0.286: .LONG 218 
FFFF OO1DA ; TRASTARGET 
U.287: . -1 
7126 O01DC ; TPASTYPE 
0.291: .WORD 28966 
00000000* 001DE ; TPASADDR 
0.292: .LONG <<SMGSSMASK_ADR-U.292>-4> 
00000008 001E2 ; TPASMASK 
0.293: .LONG 219 
FFFF OO1E6 ; TPASTARGET 
U.294: .WORD -1 
7127 OO1E8 ; TPASTYPE 
0.298: .WORD 28967 
00000000* OO01EA ; TPASADDR 
G.299: .LONG <<SMGSSMASK_ADR-U.299>-4> 
000000DC OO1EE 5 taneeee 
U.300: .LONG 220 
FFFF OO1F2 ; TPASTARGET 
U.301: ~ WORD =] 
15F6 OO1F4 ; TPASTYPE 
U.302: .WORD 5622 
FFFE O01F6 ; TPASTARGET 


a3 


SPESBOOLEAN 


11 
TAB on for e- 
TSEOEELA'E {TGn8T°ES*OnkAbaeCOSUET ity mane TE=808-1986 8:05 


001F8 


WORD 


“EQUA 60 BOOLEAN ors 
LK 


99F8 001F8 sibagrvré 


0000+ 
00000000+ 
0000+ 
9030 
00000000* 
0000* 
81F1 
00000000* 
85ED 
00000000+ 


99F8 
0000* 
00000000* 
0000+ 
19F8 
0000+ 
0000+ 
81F1 
00000000* 
85ED 
00000000* 


91F3 
00000000v 


OOTFA 
OO1FC 
00200 
00202 
00204 
00208 
0020A 
0020¢ 
00210 
00212 
00216 
00216 
00218 
OO21A 
O021E 
00220 
00222 
00224 
00226 
00228 
0022C 
0022E 
00232 ; 
00232 ; 
00234 


P : _,WOR 
3; TPASACTION 
U.307: sb 
Mt TARGET 
U.308: .WOR 
; TPASTYPE 
U.309: .WORD 
Ne) wehbe 
U.310: .LONG 
; TPASTARGET 
U.312: .WORD 
3s TPASTYPE 
U.313: WORD 
3; TPASACTION 
U.314: .LONG 
gicagtvre 
U.315: .WORD 
; TPASACTION 
Yap EAN’ ERP VA 
GbE 7BLK 
a cast vre 
U.317: . WORD 
My pee 
U.318: WORD 
; TPASACTION 
U.319: LONG 
MS Hama 
U.320: .WORD 
; TPASTYPE 
U.321: WORD 
; TPASSUBE XP 
U.323: .WORD 
3; TPASTARGET 
U.324: .WORD 
g Gog Tyre 
U.325: .WORD 
Ares ACTION 
U.326: .LONG 
; TPASTYPE 
U.327: WORD 
s TRSBACTION 
U.32 : LONG 

7BL 


re 
ee 

3. = 
see 


PA 
iba ACTION 
i535" . LONG 
tect e 


$3 USNartu*SReSsmendotne.682; 1 


-26120 

<<U.3-U.306>-2> 
<<SMGSSNEXT_RECORD-U.307>-4> 
<<U.27-U.308>-2> 

-28611 
<<SMGS$STORE_CAP_MASK-U.310>-4> 
<<U.311-U.312>=2> 

-32271 
<<SMGS$S$SYNTAX_ERROR=-U.314>-4> 
-31251 


CO wataennantrcene same nets 


-26120 

<<U.3-U.318>-2> 
<<SMGSSNEXT_RECORD-U.319>-4> 
<<U.311-U.320>-2> 

6648 

<<U.322-U.323>-2> 
<<BEGIN_SCAN-U. 324>-2> 

-32271 
<<SMGSSSYNTAX_ERROR-U.326>-4> 
-31251 
<<SMGS$SYNTAX_ERROR-U. 328>-4> 
0 

-28173 

<<STORE _BOOLEAN-U. 330>-4> 
<<U.331-U.332>-2> 


a3 


a 


EAN.TAB TPAR 


E tables f 


BOOLEAN = s 


} 


r Boolean capabiliti 
gnal an unknown capa 


15F6 
FFFE 


902C 
00000000« 
FFFF 
91F2 
00000000* 
0000* 
99F8 
0000* 
00000000* 
FFFF 
85ED 
00000000* 


0000* 
0000* 
0000+ 
0000+ 
0000+ 
0000+ 
0000* 
0000+ 
0000+ 
0000+ 


ax (el 
0023E ;C 


0023€ ; TPA Ty 
00240 ; bic 
00244 ; 

00246 
00248 
0024¢ 
0024E 
00250 
00252 
00256 
00258 ;T 


cc 
—+ —t¢ —t 
>= 
oa 
~ 


ce- ce 
—Je —ée 
rPuUruwPp 
POR SONS SOO SPOS 
< 
m 


we 
Fete ere ree 
“~ 
< 
v 
m 


. ~ WORD 
0025A ; TPASACTION 
U.346: .L 


Tasty none EReBcI8E 99:98:98 


b ih pgetne 


-PSECT 


AX-11 Blisg-32 V4.0-74 


5622 

-2 

0 

-28628 

<<SMGSSBLANKS_OF F-U.336>-4> 
-1 

-28174 
<<SMGSSBLANKS_OF F -U.339>-4> 
<<U.331-U.340>-2> 

-26120 

<<U.3-U.342>-2> 
<<SMGSSNEXT_RECORD-U. 343>-4> 
-1 

-31251 
<<SMGS$S$SYNTAX_ERROR-U. 346>-4> 
-LIBSKEYOS,NOWRT, SHR, PIC,1 


00000 SETA DOR EON SEE: 
BLKB 


00000 ; TPASKEYO 


G.1: -BLKB 


<U.29-U.1> 
<U.34-U.1> 
<U.39-U.1> 
<U.44-U.1> 
<U.49-U.1> 
<U.55-U.1> 
<U.64-U.1> 
<U.71-U.1> 
<U.78-U.1> 
<U.85-U.1> 


SMGRTL.SRCJSMGBOOTAB.B32;1 


a3 


r Boolean capabilitie 
signal an unknown capa 


SAESGOOLEAN, TAB TPARS 
NOT) 


bility nome if: i 


ep-1 
a 


0000* 00014 ; g"ogene 


0000* 00016 ; ii 
0000* 00018 ; TPASKEY 
0000* 0001A Getty 
0000" 0001 :TPASKEY 
0000* 0001 STPASKEY 
0000* 00020 ‘iP ti 
0000* 00022 ite 
0000+ 00026 ; TPAgKEY 
0000+ 00026 ; trAsKEY 
0000+ 00028 ; TFASKEY 
0000+ 0002A ; TPAsKEY 
0000+ o002¢ ; TpAsKEY 
0000+ 0002E ; TPAsKEY 
0000+ 00030 ; fPaskey 
0000+ 00032 ; TrAsKEY 
0000+ 00036 = fPASKEY 
0000+ 00036 : fbasKeY 
0000* 00038 ; TPASKEY 
0000+ 0003A :iPASKEY 
0000+ o003¢ sfPASKEY 
0000* 0003E sibA KEY 
0000* 00040 atbA KEY 
0000+ 00042 ; #BAsKeY 
0000+ 00064 ; 7PASKEY 
0000* 00046 UiBR KEY 
0000+ 00048 sib, KEY 
0000" O004A ; TPASKEY 
sangeet, 


9B 19:09:88 


<U.92-U.1> 

<U.99-U.1> 

<U.106-U.1> 
<U.113-U.1> 
<U.120-U.1> 
<U.127-U.1> 
<U.134-U.1> 
<U.141-U.1> 
<U.148-U.1> 
<U.155-U.1> 
<U.162-U.1> 
<U.169-U.1> 
<U.176-U.1> 
<U.183-U.1> 
<U.190-U.1> 
<U.197-U.1> 
<U.204-U.1> 
<U.211-U.1> 
<U.218-U.1> 
<U.225-U.1> 
<U.232-U.1> 
<U.239-U.1> 
<U.246-U.1> 
<U.253-U.1> 
<U.260-U.1> 
<U.267-U.1> 
<U.274-U.1> 
<U.281-U.1> 


AX-11 BLi 
SMGRTL.SR 


see ee awa oe 


feqe2 2 V4. g totes BSe; 4 


gE ——EEEe 


re 
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. : ,WORD 
0000* 0004E ay ttee 
U.296: .WORD 
~EXTRN 
eEXTRN 
-EXTRN 
~EXTRN 
oEXTRN 
EXTRN 
EXTRN 
iil 
~EXTRN 
~EXTRN 
-PSECT 
0000 00000 a pee 
000000006 00 3 tt PUSHAB 
10 A D 000 MOva 
000000006 DOD Bos PUSHL 
DD 0001 PUSHL 
000000006 9F 00014 $ 
000000006 00 06 FB ooiA CALLS 
04 00021 ET 


; Routine Size: 34 bytes, Routine Base: _SMGSCODE + 0000 


<U.288-U.1> 
<U.295-U.1> 


SMGS$ 

one mee ERM. Is EAS ERRAT_LIN 

snes LLY yAL SMCS MISTERNAM 
BOOCAP SYNERR 

SRe$-nOTBO0 _ADR, * sing STURRENT_LINE 


-SMGSCODE,NOWRT, SHR, PIC,2 


Save noTBo0E 
MGS ap 


TOCAP) (SP) 
SHGSS CURRENT LINE 


sacs ERRAT_LIN 
#6, CiessToP 


~~ a 


iz 


Be Pe Se Be Se Se Ge Se Se Se Se Se Se Se Se Se Fe Se Se Se Fe Se Se Se Se Ge Se Se Se Ge Oe Se Se Se Se Se Se Se BH Oe HSH Oe Oe Oe OH Oe Oe Oe OHH Oe Oe Oe Oe Be ee 


EAN_TAB rennet tables for Boolean capabilities 1b -1 214: AX-11 Bliss- 4. 
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ZSBTTL ‘STOR mi = store boolean value’ 
ROUTINE STORE ~BOOLEAN 
‘ee 


FUNCTIONAL DESCRIPTION: 


a3 


ve just rons a decimal value. If it's a 0 or 1, then store 
it, else give an error. 


i CALLING SEQUENCE: 


1 
! 
' 
! 
! 
! 
status = STORE_BOOLEAN () 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

AP Points to TPARSE parameter block 
t 

1 

4 

' 

1 

' 

! 

1 

1 


—> a 


BNAVEWN “OVD ONOULSWN—O 


i IMPLICIT OUTPUTS: 
i NONE 

i COMPLETION STATUS: 
i SS$_NORMAL 
i SIDE EFFECTS: 


AP : REF BLOCK C,BYTE); 
IF AP ait NUMBER] EQL 9 OR 
TPASL— NUMBER] EQL 1 
BEGIN 
CALLG (.AP, SMGSSFLUSH_NUMERIC) ; | 
' call routine to move value 
AP CTPASV_BLANKS) = 1; ! blanks are significant now 
ELSE 
SIGNAL_STOP (snes ERR LIN 
SMGS CURRENT LINE, 
shcé | LLVAL); 
RETURN (SS$_NORMAL); 


END; ! end of routine STORE_BOOLEAN 
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FRRLET 
SVSVSRROVGLS SVS APU SSSVEARAnoSswe werk owoe 


NOUS WO O@NOUE WN O 


kK 11 
peagem.e presse abisg See eetgecamstsets HERES ORUSSAE UGH UGH Site 


0000 00000 STORE_BOOLEAN: 
ve nothing 
ac p (AP) 
01 aC p chp (AP), #1 
00 ¢ FA 1$: CA SMGSSFLUSH_ NUMERIC 
AC BI n. 1GP 


1 BRB 
1A 28: PUSHAB SMG$ 


1¢ 

1c 
800000006 
000000006 


fF 

ee puter SRGSSCUNRENT LINE 

fF PUSHAB SMG$_ERRLIN 
000000006 98 1 $8 CALLS ate o ,jesster 

a 4 3$: eoye 


; Routine Size: 57 bytes, Routine Base: _SMGSCODE + 0022 


358 0431 1 !<BLF/PAGE> 


re 


EAN_TAB yrange tables for Boolean capabilities 18-5 Sep-1 214: AX-11 Bliss-32 V4.0-74 e 6 
3780 E_BOOLEAN = store boolean value ~300- 138% 90:39:88 SMGRTL.SRCJSMGBOOTAB.852;1 to re 


; ie bess jE ernie ! End of module SMGSBOOLEAN_TABLES 


-EXTRN LIBSSTOP 


; PSECT SUMMARY 
; Name Bytes Attributes 

:  LIBSKEYOS Q NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
;  _LIBSSTATES 6 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
;  LIBSKEY1 4 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; _SMGSCODE 91 NOVEC, *NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

29 tee ee ee eee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

3 .$255$DUA : ESYSLIBISTARLET. L32;1 9776 41 581 0:01.0 

; _$255$DUA RTLLIB.L32:1 36 0 8 09:00.) 

H $255$DUA TPSMCRTC. ry SMGLIB.L32;1 469 0 0 3 00:00.4 

3 $255$DuU : CSMGRTL.OBJJSMGTPALI8.L32;1 0 10 00.1 

; "$2558DUA28: CSYSLIBJTPAMAC.L32;1 42 38 71 14 :00.1 

3 COMMAND QUALIFIERS 

4 GLISS/CHECK SCF LELD, IME TIAL .OPTIRIZE) /WOTRACE/L LS4, 158 : SREBOOTAS/OB. 9081S : SREBOOTAS MSRC$: SMGBOOTAB/UPDATE=(ENHS$: SMGBOOTAB 
3 gg 91 68:$9°9 + A ity data bytes 

3; Run T 

3 foe ed Tine: 1:49.8 

3; Lines/CPU M $33 

5 Lenenes/CPU-Rin: 988 

3 > pages 


ay Ue Used: 
Compilation Mts. ¥ 
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